Наша задача будет произвести запись в файл. Итак, код.

theView = av.FindDoc("View1")

x=1
if (theView<>nil) then

 theTheme = theView.FindTheme("base.shp") 
 if (theTheme<>nil) then

  theFTab     = theTheme.GetFTab
  shapeField  = theFTab.FindField( "Shape" )
  exportFile = LineFile.Make("c:\1.gen".AsFileName, #FILE_PERM_WRITE)

  for each recNum in theFTab
      
          currentShape = theFTab.ReturnValue( shapeField, recNum )
          pt=currentShape.ReturnCenter 
          Xvalue = pt.GetX.AsString
          Yvalue = pt.GetY.AsString
         outputLine = x.AsString+", "+Xvalue+", "+Yvalue
         exportFile.WriteElt( outputLine )
         x=x+1
         end
  exportFile.WriteElt( "END" )
  exportFile.Close
   
 else
   MsgBox.Info( "No Theme", "")
 end

else
  MsgBox.Info( "No View", "")
end

Что здесь нового, это создание файла.

exportFile = LineFile.Make("c:\1.gen".AsFileName, #FILE_PERM_WRITE)

Здесь имя есть и тип записи. После создания можно проводить запись. В данном случае пишется строка.

exportFile.WriteElt( outputLine )

А в самом конце закрываем файл.

exportFile.Close

Можно собирать и запускать. Будет сформирован GEN файл.